home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 45
/
Amiga Format CD45 (1999-09)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-11].iso
/
+system+
/
tools
/
expert
/
devguide
/
checkavolume
< prev
next >
Wrap
Text File
|
1999-01-25
|
2KB
|
55 lines
; CheckDevicesAtAnyVolume V2.01
; © 10/1998 by Heiko Schröder
; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
Echo "
Device-Check at any Volume
*NV2.01 © Heiko Schröder 11/98"
Echo "The report will be written in RAM: and you can't stop the version scan!"
Ask "Do you want to check your system for devices? (Y/N)"
If NOT WARN=5
C:Quit
EndIf
C:FailAt 100
C:Copy DVC RAM:
C:Copy C:Search RAM:
C:Copy Scripts/DeviceList.dvc RAM:
C:Copy MyCheck RAM:
C:Copy MyCheck.rexx RAM:
C:Copy MyConvert.rexx RAM:
Echo "List of all your devices*N--------------------------*N" >Ram:Dev-List
Echo "List of your old devices*N--------------------------*N" >Ram:Dev-OldList
Echo "List of new devices*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Dev-NewList
Echo "For DeviceGuide (01/99) I scan infos about your system:" >>Ram:Dev-NewList
Version >>Ram:Dev-NewList
C:CPU >>Ram:Dev-NewList
Echo "Starting Rexx"
Sys:System/RexxMast
rx MyDevice.rexx
If "$dev" EQ 0
Echo "Cancel"
Wait 2 secs
else
Echo "Looking for Devices..."
C:List $dev PAT=#?.device~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
Sort Ram:List1 Ram:List1
Echo "Starting Check..."
Protect MyCheck +s
Execute Ram:List1
Echo "*N*NREADY!*NThe result can be found at Ram:Dev-OldList and Ram:Dev-NewList ..."
Echo "Please send me the RAM:Dev-NewList for updating the Device.guide."
Endif
Delete Ram:List1 QUIET
Delete Ram:DVC QUIET
Delete Ram:Search QUIET
Delete Ram:DeviceList.dvc QUIET
Delete Ram:MyCheck QUIET
Delete Ram:MyCheck.rexx QUIET
Delete Ram:MyConvert.rexx QUIET
Wait 10 secs